put "char 1 to the number of chars in bkgnd field" && nextNum && "of bkgnd field" && nextNum into selectwhat
send openField to bkgnd field nextNum
end tabKey
on openField
showHideInstr
end openfield
on showHideInstr
global selectwhat
if the number of the target > 4 then exit showHideInstr
if the visible of card field (the short name of the target) is "false" then
if selectwhat is empty then put the selectedchunk into selectwhat
hideInstr
showInstr (the short name of the target)
select selectwhat
end if
put empty into selectwhat
end showHideInstr
on showInstr which
global curOpen
lock screen
if which is "address" then
show card btn "instr2a"
show card btn "instr2b"
show card btn "instr2c"
show card btn "instr2d"
else
show card btn which
end if
show card field which
if bkgnd field which is empty then
set the showLines of bkgnd field which to true
end if
unlock screen with wipe left
put which into curOpen
end showInstr
on hideInstr
global curOpen
if curOpen is empty then exit hideInstr
lock screen
if curOpen is "address" then
hide card btn "instr2a"
hide card btn "instr2b"
hide card btn "instr2c"
hide card btn "instr2d"
else
hide card btn curOpen
end if
hide card field curOpen
repeat until last char of bkgnd field curOpen is not return
delete last char of bkgnd field curOpen
end repeat
set the showlines of bkgnd field curOpen to false
unlock screen with wipe right
put empty into curOpen
end hideInstr
on mouseUp
hideInstr
end mouseUp
on closeCard
hideInstr
end closeCard
on openCard
global oldName, oldAddr, oldPhone
put bkgnd field name into oldName
put bkgnd field address into oldAddr
put bkgnd field phone into oldPhone
wait 15
tabKey
end openCard
on clearAll
global curOpen
repeat with x = 1 to 3
put the short name of card field x into curOpen
hideInstr
end repeat
put empty into curOpen
end clearAll
on clearText
global curOpen
repeat with x = 2 to 4
put empty into bkgnd field x
end repeat
end clearText
-- part 1 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=310 top=151 right=175 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name
-- part 2 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=153 right=173 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name
-- part 3 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=310 top=177 right=251 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: address
-- part 4 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=177 right=196 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2a
-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=195 right=214 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2b
-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=213 right=232 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2c
-- part 7 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=310 top=252 right=274 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: phone
-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=288 top=254 right=273 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: phone
-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=449 top=309 right=336 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update
----- HyperTalk script -----
on mouseUp
global userAddress
if (bkgnd field "name" is not empty) AND (bkgnd field "address" is not empty) then
put bkgnd field "name" & return into userAddress
put bkgnd field "address" & return after userAddress
put bkgnd field "phone" after userAddress
else put empty into userAddress
visual effect iris open
pop card
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=309 right=336 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
global oldName, oldAddr, oldPhone, selectHard
lock screen
put oldName into bkgnd field name
put oldAddr into bkgnd field address
put oldPhone into bkgnd field phone
put bkgnd field "name" & return into userAddress
put bkgnd field "address" & return after userAddress
put bkgnd field "phone" after userAddress
pop card
unlock screen with iris close
if selectHard is not empty then select selectHard
end mouseUp
-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=256 top=41 right=59 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 12
-- style flags: 2048
-- line height: 16
-- part name:
-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=233 top=309 right=336 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
clearAll
clearText
tabKey
end mouseUp
-- part 28 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=289 top=231 right=250 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 5152 / 5152
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: instr2d
-- part contents for background part 7
----- text -----
User Registration
-- part contents for card part 1
----- text -----
Please type your name here.
-- part contents for card part 3
----- text -----
Please enter your full
address and zip code on
these lines.
-- part contents for card part 7
----- text -----
Enter your phone # here.
-- part contents for card part 18
----- text -----
Press the Tab key to enter each field.
-- part contents for background part 17
----- text -----
The “Solutions” HyperCard stack allows you to print out letters to resource providers. The information that you type below will be included at the bottom of the letters you print.
